1 FORA=#BBD2TO#BBF0STEP6:GETQ$:FORN=0TO7:P=PEEK(#B400+N+8*ASC(Q$)):K=64
2 FORJ=0TO5:K=K/2:IFP-K>=0THENPOKEA+J,N*40,127:P=P-K:NEXTJ,N,AELSENEXTJ,N,A